unit fmAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, fmNormal, jpeg, ShellAPI;

type
  TfrmAbout = class(TfrmNormal)
    plAbout: TPanel;
    imgAbout: TImage;
    lbSystemName: TLabel;
    lbVersion: TLabel;
    lbCompanyName: TLabel;
    lbPhoneNo: TLabel;
    lbNetAddress: TLabel;
    lbEmail: TLabel;
    Label1: TLabel;
    lbVerMemo: TLabel;
    procedure lbNetAddressClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

uses uShare, uConst;

{$R *.dfm}

procedure TfrmAbout.lbNetAddressClick(Sender: TObject);
begin
  inherited;
  ShellExecute(Application.Handle, nil, 'http://www.jinguanjie.net', nil, nil, SW_SHOWNORMAL);
end;

end.
 
